home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir31 / gusutils.zip / 4ERROR.BTM next >
Text File  |  1994-02-08  |  2KB  |  45 lines
  1. rem (*************************************************************************)
  2. rem (*                                                                       *)
  3. rem (* NOTICE OF COPYRIGHT AND OWNERSHIP OF SOFTWARE:                        *)
  4. rem (*                                                                       *)
  5. rem (* Copyright (C) 1993, 1994 by MESS Computer Services.                   *)
  6. rem (* Portions Copyright (C) 1993, 1994 by TBP Electronics Ltd.             *)
  7. rem (* All rights reserved.                                                  *)
  8. rem (*                                                                       *)
  9. rem (*************************************************************************)
  10. rem (* MESS Computer Services V.O.F.       MM   MM  EEEEEE   SSSSS   SSSSS   *)
  11. rem (* Jadestraat 54                       M M M M  E       S       S        *)
  12. rem (* 4817 JK  Breda                      M  M  M  EEEE     SSSS    SSSS    *)
  13. rem (* The Netherlands                     M     M  E            S       S   *)
  14. rem (*                                     M     M  EEEEEE  SSSSS   SSSSS    *)
  15. rem (* Tel: +31-76 22 34 31                                                  *)
  16. rem (* Fax: +31-76 20 46 23              Many Efforts for Structured Systems *)
  17. rem (* Email: appel@stack.urc.tue.nl                                         *)
  18. rem (*************************************************************************)
  19. rem
  20. rem install it with 'alias unknown_cmd=4error.btm'
  21. rem
  22. rem just a little batch file to show how guswav can be used
  23. rem in combination with 4dos v5.0+
  24. rem
  25. rem this batch file plays a song and displays a message
  26. rem when a wrong command is entered.
  27.  
  28. REM 4ERROR.BTM
  29. @ECHO OFF
  30. ON BREAK QUIT
  31. cls
  32. SET AA=%@LEN[%@NAME[%1]]
  33. SET BB=%@EVAL[24+%AA]
  34. DRAWBOX 1 5 6 75 1 BLA ON RED FILL RED SHADOW
  35. SCRPUT  2 33 BRI BLI WHI ON RED *** ERROR ***
  36. DRAWHLINE 3 7 67 1 BLA ON RED
  37. SCRPUT 4 8 BRI WHI ON RED The command ═
  38. SCRPUT 4 23 BRI WHI ON BLU %@NAME[%1]
  39. SCRPUT 4 %BB BRI WHI ON RED ═ is not a valid alias or command!
  40. scrput 5 8 bri whi on red Arguments :
  41. scrput 5 20 bri whi on blu %2&
  42. echo.
  43. UNSET /Q AA BB
  44. guswav nolike.wav
  45.